home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / edit / thesrc20.zip / norexx.c < prev    next >
C/C++ Source or Header  |  1995-01-26  |  4KB  |  113 lines
  1. /***********************************************************************/
  2. /* NOREXX.C - Dummy REXX interface routines.                           */
  3. /***********************************************************************/
  4. /*
  5.  * THE - The Hessling Editor. A text editor similar to VM/CMS xedit.
  6.  * Copyright (C) 1991-1995 Mark Hessling
  7.  *
  8.  * This program is free software; you can redistribute it and/or
  9.  * modify it under the terms of the GNU General Public License as
  10.  * published by the Free Software Foundation; either version 2 of
  11.  * the License, or any later version.
  12.  *
  13.  * This program is distributed in the hope that it will be useful,
  14.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  16.  * General Public License for more details.
  17.  *
  18.  * You should have received a copy of the GNU General Public License
  19.  * along with this program; if not, write to:
  20.  *
  21.  *    The Free Software Foundation, Inc.
  22.  *    675 Mass Ave,
  23.  *    Cambridge, MA 02139 USA.
  24.  *
  25.  *
  26.  * If you make modifications to this software that you feel increases
  27.  * it usefulness for the rest of the community, please email the
  28.  * changes, enhancements, bug fixes as well as any and all ideas to me.
  29.  * This software is going to be maintained and enhanced as deemed
  30.  * necessary by the community.
  31.  *
  32.  * Mark Hessling                     email: M.Hessling@gu.edu.au
  33.  * 36 David Road                     Phone: +61 7 849 7731
  34.  * Holland Park                      Fax:   +61 7 875 5314
  35.  * QLD 4121
  36.  * Australia
  37.  */
  38.  
  39. /*
  40. $Id: norexx.c 2.0 1995/01/26 16:31:30 MH Release MH $
  41. */
  42.  
  43. #if defined(PROTO) && defined(NOREXX)
  44. #  define INCL_RXSUBCOM       /* Subcommand handler values */
  45. #  define INCL_RXSHV          /* Shared variable support */
  46. #  define INCL_RXSYSEXIT      /* System exit routines */
  47. #  define INCL_DOSPROCESS     /* Process/Thread Info */
  48. #  define INCL_RXFUNC         /* External functions */
  49.  
  50. #include "the.h"
  51. #include "rexx.h"
  52.  
  53.  
  54. /***********************************************************************/
  55. ULONG RexxRegisterExitExe( PSZ EnvName, PFN EntryPoint, PUCHAR UserArea )
  56. /***********************************************************************/
  57. {
  58.  return(RXEXIT_OK);
  59. }
  60. /***********************************************************************/
  61. int RexxDeregisterExit( PSZ EnvName, PSZ ModuleName )
  62. /***********************************************************************/
  63. {
  64.  return(RXEXIT_OK);
  65. }
  66. /***********************************************************************/
  67. ULONG RexxRegisterSubcomExe( PSZ EnvName, PFN EntryPoint, PUCHAR UserArea )
  68. /***********************************************************************/
  69. {
  70.  return(RXSUBCOM_LOADERR);                           /* force an error */
  71. }
  72. /***********************************************************************/
  73. ULONG RexxDeregisterSubcom( PSZ EnvName, PSZ ModuleName )
  74. /***********************************************************************/
  75. {
  76.  return(RXSUBCOM_OK);
  77. }
  78. /***********************************************************************/
  79. ULONG RexxRegisterFunctionExe( PSZ name, PFN EntryPoint )
  80. /***********************************************************************/
  81. {
  82.  return(RXFUNC_OK);
  83. }
  84. /***********************************************************************/
  85. ULONG RexxDeregisterFunction( PSZ name )
  86. /***********************************************************************/
  87. {
  88.  return(RXFUNC_OK);
  89. }
  90. /***********************************************************************/
  91. LONG RexxStart( LONG ArgCount, PRXSTRING ArgList, PSZ ProgramName,
  92.                 PRXSTRING Instore, PSZ EnvName, LONG CallType,
  93.                 PRXSYSEXIT Exits, PLONG ReturnCode, PRXSTRING Result )
  94. /***********************************************************************/
  95. {
  96.  return(RX_START_OK);
  97. }
  98. /***********************************************************************/
  99. ULONG RexxVariablePool( PSHVBLOCK RequestBlockList )
  100. /***********************************************************************/
  101. {
  102.  return(RXSHV_OK);
  103. }
  104. # if defined(MSWIN)
  105. /***********************************************************************/
  106. int APIENTRY RexxThread( UINT task, int action )
  107. /***********************************************************************/
  108. {
  109.  return(THREAD_NOT_REGISTERED);                      /* force an error */
  110. }
  111. # endif
  112. #endif
  113.